home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 September / 1986-09.d64 / auto run_64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  38 lines
  1. 100 sa=49152:hb=int(sa/256):lb=sa-256*hb
  2. 110 c=0:q=sa:for a=1 to 246:read b:c=c+b:if b=500 then poke q,hb:goto 140
  3. 120 if b<0 then poke q,abs(b):q=q+1:poke q,hb:goto 140
  4. 130 poke q,b
  5. 140 q=q+1:next:if c<>32626 then print"[147]error in data statements":stop
  6. 150 print"[147][155] sys"sa"to activate":print" sys"sa+17"to deactivate"
  7. 160 data 162,1,189,4,3,157,-30
  8. 170 data 202,16,247,162,32,160,500,208
  9. 180 data 6,174,-30,172,-31,142
  10. 190 data 4,3,140,5,3,96,0,0
  11. 200 data 162,255,232,189,0,2,201,48
  12. 210 data 144,4,201,58,144,244,201,32
  13. 220 data 240,240,201,34,240,3,108,-30
  14. 230 data 232,134,252,232,240,247,189
  15. 240 data 0,2,201,34,208,246,138,56
  16. 250 data 229,252,166,252,160,2,32,189
  17. 260 data 255,169,1,162,8,160,0,32
  18. 270 data 186,255,32,192,255,162,1,32
  19. 280 data 198,255,32,207,255,133,253,32
  20. 290 data 207,255,133,254,169,1,32,195
  21. 300 data 255,32,204,255,169,1,162,8
  22. 310 data 168,32,186,255,169,0,32,213
  23. 320 data 255,8,169,147,32,210,255,40
  24. 330 data 176,59,134,45,132,46,32,51
  25. 340 data 165,165,253,197,43,208,16,165
  26. 350 data 254,197,44,208,10,169,241,160
  27. 360 data 500,32,30,171,24,144,14,169
  28. 370 data 245,160,500,32,30,171,166,253
  29. 380 data 165,254,32,205,189,169,13,32
  30. 390 data 210,255,169,145,32,210,255,32
  31. 400 data 94,166,108,2,3,169,15,162
  32. 410 data 8,168,32,186,255,169,0,32
  33. 420 data 189,255,32,192,255,162,15,32
  34. 430 data 198,255,32,207,255,72,32,210
  35. 440 data 255,104,201,13,208,244,169,15
  36. 450 data 32,195,255,32,204,255,76,191
  37. 460 data 192,82,85,78,0,83,89,83,32,0
  38.